home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / LOOKUP.SAB < prev    next >
Text File  |  1991-09-11  |  1KB  |  38 lines
  1. label start
  2. cls
  3. display cp.dis
  4. write "LOOKUP.SAB" at 2,36
  5. write "Old Tenant/Account Lookups" at 5,27
  6. write "ADR..... Look-Up Accounts By Address                " at 9,15
  7. write "NEW..... Enter A New Look-Up Record                 " at 10,15
  8. write "EDI..... Edit The Look-Up Table                     " at 11,15
  9. write "........                                            " at 12,15
  10. write "<ESC>... Exit LOOKUP.SAB                            " at 13,15
  11. set v whch to ""
  12. fillin whch using "Enter Selection (Or Any Portion Of Name)  " at 15,15
  13. if whch = "" then ; goto fin ; endif
  14. if whch = "adr" then ; goto adr ; endif
  15. if whch = "new" then ; goto new ; endif
  16. if whch = "edi" then ; goto edi ; endif
  17. edit using lookup where tenant contains .whch
  18. goto start
  19. label adr
  20.   set v a to ""
  21.   fillin a using "Enter All Or A Portion Of Address  " at 17,15
  22.   edit using lookup sorted by year where address contains .a
  23.   goto start
  24. label new
  25.   enter newlook
  26.   goto start
  27. label edi
  28.   set v e to ""
  29.   fillin e using "Enter All Or A Portion Of Name Or Address  " at 17,15
  30.   edit using edlook where tenant contains .e
  31.   edit using edlook where address contains .e
  32.   goto start
  33. label fin
  34.   cls
  35.   return
  36.  
  37.  
  38.